


f i \ V 

; JjVt Jl>Ll 

. f lj*V' uijfr ( I ) 

■ jJLlt Sjbadl ^Lal Uai A_a^l& j Sjbxil ^Lai 4 -a^lc. frJa ( iu ) 

( ) Ram j ^ '-S-ajLi VB.net -S' £-«'-La ^ '-6-^ J ' <^t biULuJI 51^ - \ 

( ) Las a*Ij jbHI AJLa. ^ ^VL * m |f Then Else j-»Vl Alaa. -Y 

( ) fSjJ £)i LJAJ ^ Culj^l j) ClljjilaJ) AuAuU Afrljfl <> -Y 

( ) J*ll\ Jli^i <> J'j^V'j ALUaL) -i 

; ^jgl Jt>LI 

butijjJi ,^_p Aijau La j£aI ( j J 
; Lu2 (jjiwujiil ^fcu Lua A AjLi.^1 jji' ( u | 

( u - r * - Y i ) .>X = 4 + 2*5 ^ X jaiaIS £iUJl -Y 

| AaJ j ( t t" < ii — a^Ij — ji^ ).SALjil jlAia For Next aIa^ Step AjUS ^a& aJI& ^ -Y 

.tr 4 *^ VB.next JjLiu Aic. j^Jaj Uaiil -Y“ 


(Syntax Error - 
( =- #- $ ) 


Logical Error - Runtime Error) 

.Aa^fr 1 -»g Sjb®' AIaa -1 

■ diMIt Jt>Jl 
? AJIaJL a^ IaU ( I ) 
; U* ^iuujiSl 6^ S- 4 f'AaauAj J^t ( V ) 

(Integer - Else - Dim - End Sub ) 

. j-»V^ tf&J Sub *b*V' '■*£ 

£jjSt <> biljjila ^Ailuu jj*j£ ^ V Aaua^ua AjAAfr ^ ^jjauS -Y 

uljjilall £p ^. j»«Sn ^Ailuu -T 

4 U Liu fjj Jjiau j»Ac- aJU ^ |f Then Else Ala* ^ -t 

: ^'jSI JljMI 

bitjLlLl uijfr ( i ) 



(4.) 

( 1 ) 

J^LuSl 

- i 

-i Lf 4 ^ Select Case aIaa 

. Y 

Step 

- LJ 

♦ 

P.J-lS) UilUa ^uil 

-Y 

If 

-S 

£ 5 -Lui-4 j£JoJ Jj£) j) JJ-^4 CjLaJ^uy JJJJU 

.r 

End select 

-J 

For Next >»' 

-i 

String 

- Jt> 


. ca*^ -k>^ c«*-* aj* j'j * 2 V^jSt aju ^ 

. End Function -} cfi^j 

fjj Vj AjSil JilA IfJl biUa^!ia AjUS ^.. 



; (jual A 'I Jl>Jl 
A_u jjjSJVI LiLutjjfr | I J 
■ ^rj-v .x jA Lu AuiUil | u | 

.jljSlUl Ala^ ^Ailuu - ) 

. .>«W If Then Al*> -Y 

.-J Iajj AJIa ££. ~f 

.>«Vl ' ^Ailuu - i 

L-LujIaJ) ^iiouXA JLaI ljjj^ 

















































&fi AM&M JLdi t 

ft V¥ .jsJMl 


; U. tjbfr JS ^ JUI ^kjl fdk^alt t-jUSI ; JjYl J|>J| 

(. ) ^LaljjjSlYI Jb^lYI JaiLm j jjfr jiY ^4 CaiLa ^j|jJfr til^jiuj - \ 

( . ) *b»jL Jj*JJ lajUttj ji C£li.l« I flWVi ^1 j (Jjfca ^utl Ciaj ja ) j ^\ <> Afaj-a^a - Y 

| . J ^tabjjl Jjfl <j*a ' fl "*j" 1 ^JJ Vj JijSlI Jib tblla^Lall <bbS ^Lajxall 1 ^ 4 Jilt iu 4_alS -V 

( . ) SjJjS kjjul <Uj jJHa LJ k- li4Jfc4 £j&ill £j% U.ilfr j VlVu t. n 4l4A -i 

; ^Vt JjSlb 1 ntloia AlLutSft (jfr lja! ( I ) ; ,jlbll Jibuti! 

Dim X As Single 
X =Me.TextBoxl.text 
If X>=50 then 
msgBox("£*>'-S") 

Else 

msgBoxC^'j") 

End If 


. jA JjSlI jqjjj £tjU £)lfl X = 90 'bajS ballS bj - \ 

.jA j$Sll jjijj gjU £lflX = 49 balls bj - Y 

? JaAd jlaui ^Ifr jgfoil Block IF —J Jjil! <bbS JfrUY 


■ A-Ki-K.st jjxl) Sjball ^Lai Uai <La^l&j j^j^glt Sjbxll ^Lat fLaa <La^lfr frtla ( t-a ) 
( ) AjL jiill ^tuaall (jail Jiuu SjSIill ^ bAlbJl £l jl\ qa* - \ 

( ) ( End Sub ) -i ( Sub ) -i ^Jb cfi 

( ) AiajAl JaJl 4£j*a»j jJjaaaSlI SjSb ^ AlxJb jill £jjiall J * ia ^ ob^' 

(iL (jdlill ul jjaSlY I Jj jjU 4 \g. ti jjja 4«alS £alaj Jala&j ^Vl ^l^ilwVI •J&ljii £4 bJiaj-i 
( ) U jSjjj Jja. 

( ) buljiill 6 s3 O^V' Const j-»Vt ^Vu a i -g 

■ qjj!jSSM Qu ^>4 AjIaVI jail ( I ) ; dalblt J^uJl 

( Scaire - ( Address ) - E_Address ).tilaj^ll j^all -> 

(3-11 -15 ) .t*A " Y = 16 - 12 / 4 + 2 " Abb^ll Li2 jju Y j^Lall <rL$2\ 4-ajlll-Y 

. 4_4jd CulS bj UlLui l_l^j S Jbjll Jjxa -Y 

( Jiut la JS — AjIjJI (^4 jjSI 4_jL^_ 1S1 — Ajt$ill jjSI AjIjJI ) 

jLli Jiuu jljSall CjIj4 JJ£> Aijxa All^ oCa La. <lla^-i 

( Do While - For Next - If Then ) 

; <j 3 Vl ^jSlb ILibtaa AjjVI (JaaJl (JaSI ( lj ) 

Sub ShowoddEven (Byval Start As integer) 

Dim I AS integer 
Labell.text=" " 

For I = start to 10 step 2 
Labell.text=labell.text & " " & i 
Next 
End Sub 

.^ul .1 

. <ijLuaS AjjIjSSII AlKlI ^ Sjbjll 4-ajfl -Y 

.. f—b Parameter 6 ^ f 2 - r 


c-LujIaJI ^2 JUI CjU^ajj 









































( ) 

is jj-ui j 

( ) 


f 4 . a ¥ $U$&> $=*M 

jjxJ) SjUdt fU Uaa. 4^j 3 a ~SjUlSI 4-a^lfr ( | ) ; Jj^l Jt>Jt 

4_ijJsjLuj j jjP jiV l4xla til jIuj SjUp ijji£iV) - ) 

( ) Argument >4^ Taxes ‘ Taxes (0.5) <**-W *b*! ftejiuil ilz -Y 

Loop <^' J^' <*% False (J*j&\ £iU UHc- Do While 4&a. ^ -? 

•^Ij Variable jj*^' J& £j&JI 0j% '-^ Select Case -t 

* 

; Lajj guU ljjSI ( lj ) 


Dim X As Single 
X = Me.textboxl.text 
If X>= 50 then 
msgBox(" ") 

Else 

msgBox(" 4 ^'j ") 

End if 



Runtime Error - £ 


x = 86 1 j) _ r X = 25 42*3LS 1 j) - ^ 

; Lu> Sjbfr JS jLaSV <UmHa3t 4 JaVI jl^i ; Jlj^l 
. JV u^i ^ .f hVu al ±£- - \ 

<> - £ >- ( -H = - i 

.jA " X = 3 +1 * 4 " X £SLtfl -r 

Yi _£ Y . . lj U . j 

. 1 laaJl ! jjjju ^laUjj ^ JjIaluM 3aImm uLua A zjji ^ Uaa. ^j |j| -T 

Logical Error - v Syntax Error -' 

jA SjLjil j!jL» J»aj For Next 4l*> ^ Step ^ -t 

T ^ -IsJJ - LJ jLuS - j 

; A^UIt CjIaISJ) t A a J j&\ ; dJli]) 

AjjjjjSiVI CilLLJa^l - Byte - Vbcrlf - Dim 

5 4J I *^1 j 0 4J !jiS $I .iaJI.^ 

. jjSI ji dua A^^ja <Lu|Jfr (JiLmj Sjbfr . -Y 

VB.NET m J £P J .>»vi -r 

. jlaui f.L*ui ^ ..-.. al) - i 

: /uijfl JijMi 
^UUI JjSJL Ual^ J^sj ( | ) 


Function AAA ( Byval BBB as integer) as Double 






Code 

Return SSS 
End Function 


c-LujIaJ| ^2 JUI CjU^jj 


































































( 


( 


11 > t yS 

■ jj»Jt Sjbadt ^Laj Uaa. 4 -a^C. j SjLxJI ^LaI fu^ <La^ frua ; JjVl Jlj^uJt 

( ) . tlAJUJl <> £|jj'| £a VB.NET ^ jijj -> 

( ) AjjjjiklSl AaLulJI <_>-& JLuu SjSljJl ^ Iflaia. ^ ^1 CjUUJl £l £±a* -Y 

| ) " = " 4_a^Ic 1 lu (jjfljia ,jC- ojLc- 41 aa -T 

) ia5 j& tSlUAj j&)j jJLia ^-4 j 2 ]jb4jjL4 ,j^Sj ^^luu Select Case 41 aai -1 
) LLu■■* iJjjjuj jjc cjIjaSI (ja jjxi jjiu jijS jljUl Do While Loop ^^ ■■**« -© 

( ) 4iUl ^aI jSr 4 -aUJI 4*^1 yi fUali I Ajjilil fUalSn -1 

; t—miLLa jA Lu jUjUll Cjtjbadl J^£t ; ^1^1 

Cher - String -i 6^.^-LiJl 

VB.NET 4*1 J ^.>«Sn f-iiiuy -Y 

.<> £1aj *'j*! <> u^V' ^ - r 

.ja^jjSNI -t 

ja 4jiuii aIa^ji ^uU -® 

For I = 3 to 20 step 3 

Me.textBoxl.text=me.textBoxl.text & I & vbcrlf 
Next 

; ijjLut j!3l qJ Iaa A AjIaVI jUt ; JtJ^uJt 

^aUjjJl jjuui f.L3j| jj*jj U sJlc-j REM ^ SjjaA* (!£'-«' l)& 

( (-ijjaJl — CjjIjjJI — CjljjiiAil ) 

.>Y = 16-12/4 + 2 Alst^ Y £>Uil -Y 

p © _ U _ 1“ ) 

. " cilaj^l Jtp-yflll ^uiYI jSil -r 

((Address) - E_Address - 5Cairo ) 

JaiLw j ji <I£^Aa !^S> 1 ,jjXA ^uil tliaj j^ljJl ^a 4^ja^a ^ SjUfr . -t 

| QjlSil — 4j|.iJ| — ^|ja>Y) ) AajIj Jijxjj 

( Jjaui U ^iaa — jrlj^Yl — — i-Ljaail ) (>>. -© 

N : 

; ( gtjbadl r J^l ) Jl 

Const Pi As Single = 22/7 
DIM Today As Date = # 25 / 5 / 2017 # -* 


a 


c-LujIaJ) ^2 ^ilx^a jLal ljjj^ 































a J & 821 ! tiddli 

H i \ ¥ 

:<jm A j^b Uttlu14 J^£l - t ; JjVt J|>J| 

If Degree > 0 then 
msgBox ( " jkall jja ") 

Else 

msgBox(" ^") 

End if 

.jA JjSil ^ ^Vln a t ! tjaj&ti ^ 

.U^I J> j^iaj Degree = 30 'j' -t 

(Uai - fua ) End If 6 j-^ -^'j J* IF ^i*?. .r 

; AjjV! ljIjLixIS ^yAlaJl frthi^at! j£jj — i-i 
, A ajIj Jj*j lAliiu jjft j ^uit Igxbaj jjjIjVI Afr J A ^- A - ^ 

VB.NET a*l ij* ajU£ *u5i j^iai a*ui jSf Aiu^i ^ fUaki -y 

■ jjxil 0 jUlS| fla! Uaa. ^a^Cj A^ua^a^l SjLaJl ^La! <b£tc- frua ; ; ^llSl Jlj^jJ! 

( ) Arguments 4^ da 0^ Taxes (0.05 ) *0*! ^ 

( ) True *bua»^ jt j£l\ J*> Lixi ±jdl\ ot t^Ua jtjiut Liii ^ ( Do While ) & -t 

( ) 4 jc.1 ^-s.Vl CilifcUJ) jjjhj] J*2aij oia. ^Jc Lijaui) J&luu ^c-1 ^1-vV' J*aljUl £fl!-Y“ 

( ) 3ji Alu AjjIuiaJ! Ciblaxl! Jjjjj diLjJjV ILia -1 

( ) Product n ^ ^ so* 3 ^ (Product = 9*2) <> o^j*^' -® 

; bu> Sjbfr j£ Jlaffi AjIaVI jja! ; Cuibi! JtJ^uJt 

(jk 0 jjii£ iajjJj CU&j j jJlm AaiA ^le IXajam (jj£j la-llfr 4_a,^1< >ia!l £jSo]| Alaa. - \ 

Select Case -£ If Then Else - ^ If Then - i 

AjjjjaSJV! JaiLuijI) Ail£ ^ dO-* 1 " ^JjxaS) ( J_ujj du* jj£la JLuu AjjjjaSiSfl dilAil.JxaJl JlLuii qa JLui -T 
yjjjjSiV) yjjjjilSft f 1 m< >iVl -(-j AojjjaSJVI — t 

AJLaJi ( Form ) ®iau & j *j aaI£ .v 

Me -£ Rem Vbcrlf - i 

jpji flxi! jj*jj V AajAj jjjjjuSil SjSlj ^ 

iu)f I j^2\ -£ Culjiii! -lj Ci!ijjilai! — ( 

CilJLuS 4 °-' * 1 ^'" 1 d^a AjjjLoI) Ci! j jS?I jlxuii 4*»j£ .0 
AS-jjI* Ayivirt jjft Aoa2j _<_i 4oa3j .( 

U J! ) <> AjJ^! JtJfrSfl Afrbla ^JUl! ^JU! ; ^u!j3l J!>J! 

Const M AS Integer 

For M = 1 to 11 step -2 

Me.label.text=label1 .text & M & vbcrlf 

Loop 

MsgBox (" ^UjJi ") 

End sub 


1 -LujIaJ) ^2 ^ilx^a jLal 





























oooo 































O^S I 


ft'iv l#'S 

; Ua Sjbfr JS JLaSV j^U^I AjUVI jlkl ( t ) ; JjSn J|>J| 

. (_jA F_Name ^Vl jJ*la ^aoa^aJl 4xu<aJU> 

( Dim F_Name As Decmail - Dim F_Name As String - Dim F_name As Integer ) 

. iS *~y VB.NET &L ^ J**^ <J Uaill -Y 

( Runtime Error - Logical Error - Syntax Error ) 

.> Y = (16 — 12 ) /4 +2 ^UUaU y jj*2a 11 gaai-T 

( u _ u _ r ) 

. Ij&La 4aja ka 4ujU]| flAwtj-i 

( stname - Name** - ST name ) 

SjjjS JajjJu tiSUAj j jJlIa 4_aj£ Ij^la (jj£j La-lit »■*■*■*, ■■**«... 41 ax-© 

(If Then - Select case - For Next) 

. SUSfU SelectedindexChanged 

( Label - TextBox - Combobox ) 

; UaiJl SjUdt Uai Aj&£.j a jUJ) Ut ^ is. ( ^) 

| ) <Ujjjaail AaLuiaJ) (JaAj JxJiij SjSlill ^3 ljaix CjULJI £xax - \ 

( ) Jufltjjit JjLjj Alls ^ (^jfcA £uj L5 j*j ^UxiuiVi -y 

( End Sub ) -j ( Sub ) -y '-^y 4Jb ££■ O^VI 

tiL Jjjxii AI^lu jjjaJI <LaIS ^uaj ^Vl JfrljS *-a Lxulaj - 1 

| ) lAjijj ^jk", - »**« 

jjja jJauf ^Luui ^3 ,.-i vbcrlf a »l£l) -0 

ji«a JjSft j^ajxll <^py (Index ) ^ ( ComboBox ) SbVl Jib >xaUx5l ljjjjj -n 


\ ( V ) 

( > ) 

Function Sum (Byval First As Single .Byval 

Dim X As Single 

Second As Single ) As Single 

X = me.textBoxl.text 

Dim Total As Single 

If x>=50 then 

Total = first + second 

") Msgbox(" 

Return total 

Else 

End function 

"JlxujIj msgBox(" 

jA -U'ali AaaIjJI A a v^Li <j^liJI ^Luil - \ 

End if 

j»Jixuu lajhi Jil\ ( Perameters ) -t 

£iU £l3 ( x = 49 ) lJ) 

. 

oA j q&I) jjijj 

giU £ji± ( x = 76 ) M tj) -t 

J liijj 

|f 4 j£Jt AjU£ -V 

j jiauj 


A 


U^i\ LjlouliJI ^9 JL»I ClLXAJJ LjJJJAi 


I»I«I»I»I«fT 





































; Jt>Jt 

cjjj^aj ( 0 ) ^^*il t-jj^a Jj^ Ag'LJaj Jj&3l 

. *+■<+■ JjxAi 

Dim N,Product As Integer 
Dim Str As String 
M e .textBoxl .text = " " 

For n = 1 to 12 step -1 
Str = 5&" x " & n & " = " 

Product = 5 + n 

Me.textBoxl.text=me.textboxl.text & str & product & vbcrlf 


c-LujIaJ) ^2 jLal 













I aa JUa» giiAi 

t*w 

; fljj AAja^l Aat*VI jl*l ( I ) : Jj^l Jt>uJt 

. O'® biljjiaa (* ^’*' 11 * ^ -vj-v ^ jjfr AjJJfr ^a£ £jjJ* aJ - 1 

( Short - Byte - Single - String ) 

( 8 . -3.3. 5) .> 2 * 2 A 2 / 4-5 ^^'4ai*dl£iU-Y 

.Jj*j 4J^> {M if then End if 4i** - r 

| Jjaui Lui £^ui V — la_a — (jaL^j — JjJj J 

( Rem - Const - Dim - vbcrlf ) .Sj j»^l l ^. iVu < ii bitjjiaJI Oft 6 ^^ -* 

.jA xoy ^uU y=40 jj***J'j x=50 O' '^! -° 

( jaui bu» igjl V - false - true ) 

; AjjVI QiljbfcSl JU) t_u£j _ (_j 

Ijuia JSaSj jj£I A til ^uiij (Jfr d j1a£> - 1 

| 1 ) SjLjil jliSa <jj£j * g**<* AJIa j jjxlaii SjLjil j|jL# For AlaA -Aao*<u Aa1£ _ Y 

JjjlaJ) ' aAaa* “j ^a]| CjLulall SjLfr ( _ # A -Y* 
jj ^jj Vj AJil J Igall jJI A AjIjS in (jA - i 

■ Aa^U^I cj|jbaJt J<a£i ; ^la^l JljaJl 

. - Y . -1 ; Aul^llj 6 |jjx 1«)I Aa*mj JfrljS ^ -' 

Sub showoddorEven ( byval start As integer) : <J&\ jk*Jl ^ -Y 
..( Perameters ) ^auijI' 

fjJ 1^4^ I 4 ^Ixluil La ^Ult CJAJ CjI dlfoltiJ J-a)jVI <J-A 4^J)A%A.... -t" 

CjI aihnti j j-a(jV) &^A ifil! 

For X = 1 to 5 step 3 4l**JI ^ -* 

jA jlj£Ul J*j ( Y ) ja ± a 1 \ Aauflj . jA j'j^' bilja JJfii OJ^ 

. jA ( Y ) jj**aU TextBOXl SbSfb ^J^Ul JjSJl -0 

. A aaSu Jjju jl . Jla A aJL Jjju V Jfl (■*!< hjj Jljaaiil A*S ^5 Cilf Ij^VI -*1 

For next Al«^ ^hVimiL ® 1 o^ ijaII jIacV) ^U5l jj£i) JaSI -V 

Dim N , Sum As short 

For. 

Sum =. 

Next 

Msgbox(sum) 

■ a ‘.Ul-vt) pjLaJl ^Laj Ua^ Aa^gj SjLadl ^lat ^ua Aa^g frua — j ; dijlajl JtJ^uJt 

AajjjjSJVI JjLuj j A£l& ^ ,jjxa ^jjj ^jju jjaSJVl fUaLuiVI -1 

( parameters ) <> j^' j»t>iaa*al ( Procedure ) *b*' 0^ 0^^' ^ 

JjV) >aajfc!l jbail tjMA ( 1 ) tjb Selectedindex Aa«fllaJl Aaufl 0j ^ 2 

(i’l Lfl Jflaj V AjjxUI fUalVl -i 
^JLu^l qa jjSI Ajfr select case 41** ^. iVu/i -o 
sJbjil jlJlaj AjljaJl 0* jSl AalJall A-«jfl UAjfr for next 41** ^ j'j^' 


c-lujIaJ) ^2 ^jjxt^a JUI ljjj^ 
























































; <& LL ,^1 pdku^l Jtt ( t ; JjVI Jt>Lt 

j jJlLj *Laj3 ^Ic- llAjjLa £ jiSJl LaAjP ^Vu*n £jij Aia^ - \ 

^ jLuull ^ic- Jjj Aj jlla ^La^lC' -Y 

^c-aUjalljj^i fU jI l^lajfl jJuj La dJl &j j ^*uj| IgJ JA^jj Igjp ( RAM ) SjStilt ^ Sjj^aa <j£Lai -V 

: ^ i*> J£ (*-h 

^ .5*211 -1 

( procedure ) f'j^V' 

■ jjjsV) r J^,t (t: jt>Lt 


1- Me.textBoxl.text= " " 

2- If K Mod 3= 1 then msgBox(" welcome " ) 

1- Const BD As Date = " 5:02:50 Am" 

2- Const M As Byte = -10 

\ ♦ ♦ ^1 \ ♦ ^>4 ^ g *LauuA31 JjSj JtJfrSfl (>3 

Private Sub Buttonl click 


■ UaaJl p jj j£j ,*-« <LiJUi| J|ij£Vl - l_i 

<cr 

Imj J^Sl 

V 


j^t (i : tiaaa jt>Jt 


For M =.to.Step ... 

Me.ListBoxl.Add(.) 

Next 
End sub 

; 4jjV 1 Cjljbadt J^St ( y 

. U& j-aijVi Liu ^jj false ijLii 4uufl Cuis |j) 4?-n.njli if then ^ 

. IgoA^jj ^iu Vj JjSi) Jib lgu2) (jLaj ililla^La 4JuSJ ^iijuu. j^jSH -Y 

; W Jvt Ajdl Lfl: H)J\ 

Public Class Form 5 

Function sum( Byval N as single, Byval M as single ) As single 
Dim str As single 
Str = N + M 
Return str 
End function 
End calss 

: ,jb U i)A grjaaunt ; 


4JbJl 


^-UJ 


-> 


. (>>-Y 

. 4JIL! JajLuuj -V 
A *+\jll A^l\.i 




c-LujIaJ) ^2 jLal 








































g,fj 


&• 


■1V' 


• UaUil S jUdl ^ui Ual ^Ute ) *';' ■-<! SJjJI frja ; J ;S’I 

( ) End if ^'j J*-* c?® ( IF) 4i*a. AjUS ££aj 

( ) " 4jUaialt " As. ^jl^| CiUbJI <>ua " JZ I " fj "Ja jSj "" lalUalt kufl lJu^j 

| l^_> 4 ~j-N. j Jala j^lc-V' fLui igJ ^a Variables LjtjjA La ll 

| jj* 1 ID l££> jj j diljjilaJl ( jlC’ cijauj VB.next AiJ jY AjILui AJLulj diljjilaJl £fi- 

( ) " 55City " 

( ) End Select <^UI£j ^$22 Select Case Aia* 

; Lajfl (jduIjSSft Q# £>* <Kj^<*ii| AjIaVI jja! ; ^ 

( 17-23-20 ) .> y = 12 +( 4 * 5 ) / 2 A 2 Y ^1*21 £iUJl 

.y* Salary ^j-21 jii» <Uma!l ALuail 

( Dim salary As integer - Dim salary As Byte - Dim salary As Decmail - ) 

( Dim - const - As ) VB.next AiJ ^ CP <£teyi ^a. jA\ 

( End if - End sub - End function ) . -i function -i 'ajj A-I'J CP d£^Y' 

( Ajajak — Aauaod jjfr AoaBj — Ac -jjla j . CiULuS lflSnn<Vi <j£j»j Axuitjilt J(jaJ) f IauiI 4_aj3 

Igla^ jj ^aJJ Vj JjSJt Ja!J 1 g jlfr .jll £)Saj biUaA^La AjUS ^3. ja Yl ijjaI) ^VL>n 

( Rem - Me - vbcrlf ) 




■ AjjYI JatSjJt ^ 


uiiiM ji jjjJi 


VB.net AaL jj£J) AjU£ 


i fUaaJI (j<j Jala jjC jj jSji 

Procedure *b*Y' *-*JP 

? ^JjjjSJV) Jj^djLaJl La 


( B ) JjjaaJt 

( i ) JjAfcSI 

r 

<jl£ )3t albAD codel tJt Aij-uall aA& ^Akluoj | | 

Lj-uJl gjU ^ts tJt code2 jt true 

false 

for next aIaa 


iilllA j JL^Ij jJlLj A-ajS IAajjla (jjSj LaAIp ^Akluoj ^ J 

Do While Loop aIaa 

t 

AjjI^J Lijjata jjft CiIjaJ) £>4 JJfcS jt jSjJ j»AaJLuu ( ) 

(jja-a Ja j*i ^Jc. If LL LaJlj (jdtlxuM 

If then Else aIaa 

r 

code (^a CJ& jj Uaic. ^Aaa^u duA jIjSjJ) Jaa JaI ( ) 

CiIjaJI (JA JJ£> (jjXA 

Select Case aIaa 

£ 

(JJ3LA dtfU jVI (J-^ J) A qC' S jUC' 



U^i\ LjiuibJI ^9 jLa| CjUa^jj 


r»T»T»T»T»3»I» 






































MM 0^1 

■r 4 \ v Li. 


; SjUfl ^Ui llal ^slc-j SjUi) ^U) ^ua ^a ; JjV) Jt>Jl 

( ) AjSj^it ji Aj-aSjJt CjUUJ) t cIl^j V CjUUJ) tillj Ac-jila-ll CjUUJ) - ^ 

R_name integer <*-4 y Dim R_name As ineger -Y 

( . ) 

) 4jia1j A a j°; jj*j j Value k ;1 ■"j <ji <j£aj <jjxA ^uAj cjbuixlSlj j^ljVt (j-« 4g(jc Sjbc. <uIa1I -Y“ 

( ) ( Parameter 

l$J (j^a j*jj j! (jLaj 9 -Ijjj jl J^aljUl £2>a uf S (jaLui uLuia ASj*-u -£ 

( ) ^Lua.VI J-aljjJl JjL«j jJfr 

( ) cj| jaJ) La jtCi La J a uj j-»lji t>a 4&j<r )a cp Sjbe Procedure ft■* 

: JS L-fljC- -j ; ,^1 Jt>Jt 

CiULuit -Y (Jluljjll - \ 

: Select Case 4l»» jcI - ^ 

Dim X as integer 
X = me.textBoxl.text 
If x=0 then 

Me.labell.text = " j** 3 ^jLuu " 

End if 
If x>0 then 

Me.labell.text=" j^ O* ^»jaJi " 

End if 

If x<=0 then 

Me.labell.text=" <> jL-ai 4-^1' 

End if 

; Lajfl ujIjLI^VI qjj A^-^ua]| AjIaVI jUi ; dJlIUt JtJ^uJt 

. ^ Salary CP <Uaa-uaJI ^jaI) 

Dim Salary As integer - i 
Dim Salary As Byte -<-e 
Dim Salary As Decmail -jr 
; VB.net Jj£ JjxJuj ^uU IkaJI -Y 
ror -jr Logical Error -<-h Syntax Error -> 

j*X = 3*(5 + 6) /3+4 X jL-JJ g3Ufl -V* 

20 -£ 18 -V 15 -t 

jjS jaijj jl True ^^cjU (jl£ |j) ftjjjjj ^jaui Codel ^ILIa )jj »^*<.,,-..Aio^SI -t 

False 0^ Code 

If Then Else -jr If then -v If Then or -t 

(jjsuj JajJj ^jc> fLL LaJlj Iaauu lAjjxa jjsLI) ^ JJx! (jja-a JjS jIjSlS.<LLoa. > ..-. . a 

select Case For next -<-h Do While Loop -> 


St 


JUI CjU^ajj 
























IF ^IL^t J j$l\ c-il£l -t 


Input N 


NO N 


Yet 


Z 


Drvtsital 
e by 2 


7*" / 1 

1 / T 

1_J 

L-—i 


: ,/V) Code Jg§ <> rj^i -m 

Public Class Form 5 

Function Sum ( Byval first As Single ,Byval Scound As Single ) As Single 
Dim Total As Single 
Total =first + scound 
Return Total 
End function 
End Class 

f ij^yi Jfljiuj j -t 

Ax+\j\ _r 


> ^ 


c-lujIaJ) ^2 Lr iku04 jLaj LjUa^ftjj 
























U^i 

; 4bJaliJt SjLxSl ^Uj llal ^bOlc-j Sjbadt ^Ut ^ 3^ ^a ; JjVt Jt>Jl 

( ) 4aLjia]| AaLulaII (jAl JLuu SjSliJl (jh ^jj ^S 2 l CjUUJ) £tjjj £-la^ -^ 

( ) ^Jjult JlLuui (jA jljLVlj Aj&jUxa]) - Y 

( ) Ijjj 4JV Uai jj* 1 « jjj*j 55City -? 

( ) Parameter 6 -* j^' f'-iiiwl < 2 £«j ofr o^Vl Aie -t 

; ^rtU.^At) ( (_j ) 

^t-aUjOl JjsLuu jjfr L^iLuuS) pli flla^l - \ 
jJali jLuu jIjSjI! Cilj^ JJ& 42 jsuj ^JC- 4JLk ^2 2 jij jIjSj 4laA -Y 

; Z^A/iW AjUVI jSii ; ,^1 JI>JI 

( Double - Boolean - String ) .3 vjv < rt jjc- bibbJt £tjj) <> -> 

( end - End Select - Stop ) . -i Select case -* 

| ljIjJlLa]) — Cjj\ Jil\ — Jl j4Jl J IgJ A a\I ^Skl\ f j^a 4 ,ajAj 4 i jxHi iP JlutS.-T 

(— jjg4*n\t — 4 jjJ) ) ..Jl* -iaiLujj ^>a ^jj Jyt <j4ju2t -t 

(9 - 7 - 12 ) .> X = 12 - 2 + 4/2 £iU2t -* 

; / JUit Jj4^]b 4j£Jtj ‘LuiLuJIj 1 nin^ia AliujSft <-ja1 I \ ) ; CAUl\ 





Dim X As Single 
X = me.textBoxl.text 
If x >= 50 then 
msgBox (" 

Else 

msgBox(" <-^-“0") 
End if 


•r Amal Wuilif* 


i » rH M 






J 







Dim a As integer 
For A = 1 to 9 
MsgBox (A) 
Next 


.j* ^ X ' 

.jA JjSJl jjjjj £ub (2)^ X — 50 4_aj2 ujIS )j& - Y 

.jA jjSJI *ijin ^ub (2)^ X = 49 4^j2 bulS lit -T 

: 4^' J&U SH ) 
Vbcrlf 4Ja^i^_aJl 4 aKll -AvA*. ..1 m \ 

UJLja (jjLi uiaj step »4bjJt Jjxa For next J* 

Ja^ Ajaj La c-uj^aj J*j 4ajUit 4 jU£ 4C-i ( i ) ; 

. cjj) jjII tjfr 0^*V' Dim >»V) ^Vmij - Y 

. t£j* 4'-^' O' For next ^ 

. 4^aii jUjV ( / ^.yVu.j -r 

: jj^b ( (-j ) 


jA 4 jjI jSalt 4 aIaJ| ^2 > ■■-»" jjsuaS! ^wl - ^ 

.jA JjSlI (> jij*Jl -Y 


^Vl ‘ U Uj| ^3 jLal CiU^ajj i_jjjii 


r»T»T»T»T»3»I» 



























































cMM t 


0- 


f 




; SjUil ^L>i Ual ^Cslc-j Sjbadl ^Ut ?t-a 4^slfr frJa ; JjV) Jt>Jt 

( ) t <U jjjjaaSII SjStL 0J^-» VB.net ^ ^ ^ljj*2*Jtj -luaL 

| | I^aUaj 4-ajd 4Jp 0 j1lu4 jijS Uj^] ^jl£ l3t function 4J)^I ^hVu*iV UH - Y 

( ) ^ X=3+2*4 4-J^) 4JjU-a]| LiS jju x tlalS *Lajj]l -1* 

| | Sjjj£ Ljj-ui lIUa j ±^!j jJlLj 4-<u£ liaL-a ^jj£j La-ii^ Select case 4J-a^ ^,vVL*n -£ 

( ) Syntax error LLi jjuxj 4JjU^ ljUja AajL ^ llaaJl -$ 

( ) j£*2 ^uU ^ IflL Do While 4jjtj£i2t 4iIaJl <> c£*j 

■ jj£JL 1 n**uaa A-^LUt AlLuiV) ^ 


Dim N , 1 As integer 

qA J qSJl ('yA jitJl -) 

Dim sum As integer =0 

) A ^\ ^abVhul ^aJ N )-1x2a1! (*)0 (*0lc-!}U-Y 

N = textBoxl.text 

^£aj31 Sbi <SLk^l -V 

For 1 = 1 to N 

qA 6 )l 1 q ill J q£J! - £ 

If 1 mod 3 = 0 then 

A i2 1 <qA1c» Aj^l^SUl! ^ q\^n. \i ^q m 

Sum=Sum + 1 

. ’j'l" 

End if 

A^ual) A.l^^k JaiiH ^jlSa L_uS) -1 

Next 

AjjIjSjII Ail^J) JjiiS -Ixj Sum J^tlall 


aJLojj (jjAlx^a ^gk 


; £)* A^rt^t AjIaV) ; dJUiSl Jtj^uJl 

( Salary — 55City — f_name ) .l-ic-La 4^j^^ AJUJt cj) jailaJl fta^l -^ 

( procedure - sub - function ) . ^VLai sub c^j^t * 0*V' 0^ 

. . ^j£Jt L CjjLj]) ^ -Y* 

(const pi As single=3.14 - Dim pi As single=3.14 - Dim pi As single ) 

( f7 - f5 - f4 ) ... ^bia Sidb -£ 

(JjIula ( ji^> i±^\j ijA ^ cjIjJlLaIi ji cu \jiui ajUs jIjSj -o 

( ^J-LUJ La j£ — < — Cj.laJl f 1 jaI ) 

: won Jt>Jl 

^jjjUSJVI <^Jbu3t jLLuit (j* Lid Aj^Ij j£jI 


IV 


c-LujIaJ) ^2 Jlal CjUa-ajj ljjj^ 





































cMM t 


( ) 

( ) 

( ) 

( ) 

( ) 

( 25-20-5 ) 


1 * J!*0> 

; <UlalAit OjLaJ) ^Laj Ual 4-a^lC'j SjLaJl ,aLal fLua 4_a^l& frJa ; JjVI 

False j' True Boolean <> j 4 * 44 ^' 

tjzj* J#* 4 *Lu Do While ^Jj'j* 4 ^ 5ilaJI d>« £jjaJ! dA 4 ^ 
true ,>2*11 >j*3lt jtjU (j_jSj La-iie jf Ala^. ^ Else ^ ts^ll JjSlI .liu -V 
Sllb * "** 1 Jib ^uai>a (jjj jjSI »jl j£j ^ i—iC jj (jjJLjj JjS tl.il (jjSj Lalfr -t 

Dim vb olf As Byte -° 

; Cp>. jil! d) 44 Uu> .^ti j*cjU 2! jjll ; yjuJt J!>11 

.jA X=30 - 15 /3 AiJlx4U X filial g»jM 

.^ l $mj imi d£*J Dimienies Y As integer Jj^lt V 4 * ^jc. jfH ^311 Ualll 4JL-j -Y 

(logical Error - Run time Error - Sysment Error) 

( End select - End Else - End Case ) . -i Select Case 4la* <^$333 -T 

( End - End function - function End ) . -i u^H3 function *b*l CP dC^V' -• 

( code - Ram - Me ) . AjJUJI form SjaLi CP j 4 * 4 

: 41Y! iljL*Ji J*si : dull ji>ji 

. JjSJl Jib tgll £ _$^^lt Cfipl LjUa^Lal! *Lil3£ .>»Vl g«9jxalt . 'A."., _ \ 

. SjjjS Jajjdu til Lift j J&lj variable >*la 'Lai ^!fr Xa3xa £ji3ll (jj^J Lallfr ■■*>. -Y 

. l^jlc Jjllaj ftja^Tt £jll dya ^jlll JjJ&j flftjiuil lie -T 

. 4,$!jjjSIY) JaiLui jll - 1 ill i| Xaxla ^31 jjc tiljlui SjLp . -1 

^ j]| 4j^ll ^uil jl jaila ^»uil Jlaj j-uyYI <-fljlal! = 'La^le 1 a$SB dyjSjla d^ *jbe . -® 

. dyall uijUb <Laj11I 4j 2 d)J^ 4 ji Jj53«ij 

: yijli Ji>li 

^utl ^jjiaatj d)l dA 4 ^^ dy 4 Ja ^Jjjj t_iLui& (j^P (_>tulj 4 JLuij J>uijl d)i Jjji dyJ AU ‘^ jj^iC Jli -I 

V J*i! I jLa liliij ^ 4jLuij!t i JLuijI d>a dA 44 ^ tiL djj'^ 1 '^'' jjjaII <La!Sj . 'A.~,., 

: 4JU JS yfl msgbox ^SU-jll Jib Jfla! ^311 <JU&\ ^A La -lj 


r jjSii 


V ^j£JI 


1 Jjlll 


Dim X As single = 4 
Dim Y as integer 
For y = 0 to 5 step 3 
X = X * 2 
Next 

MsgBox( X) 


Dim M As Byte = 10 
If M >=10 then 
msgBox( " pass ") 
Else 

MsgBox( " faile " ) 
End if 


B = 5 
A = 6 

Do while B < = 10 
A = B + A 
B = B + 2 
Loop 

MsgBox( A) 


1 


1 


> A 


c-lujIaJ) ^2 JUI 


































04te&f! MMi 

f i ) V Lilail 

: MjjaliJl SjbfcSl ^Ui llal ^baic-j Sjbad) ^Ut fiua M^slfr ; JjV) Jt>J) 

( ) i-ii.iiAi qjjljj fjStj Ajjjjij A^Luta Jamu jjjjj^I 3jS|J ^2 CiPft (jUj JS - ^ 

( ) jjjjxalSt 3jS|j ^h^*i< nt JjJujj ^ M&Luu VB.net 4*5 ^ till'jjiliSl (JC ^l&VI -T 

( ) Syntax error Lk* jA i$i ujLua m yu] QaaJt _p 

( ) CutjjJt (jp ^)!ilfrVt ^ Const j*i f'lVuHj -i 

[ ) 1 4 t 1 " 1 ^ * m-»j 2 4je gjlt*■■ jjS llaS |js> Procedure *' < ^'* 1 i,SJ 1*15 -° 

| | ^fel aWVt £21(Jla MujjjjSlfr JajLuij JMii £>a ^jj ijjjSJYI ^JsuJt -1 

( ) MjjIjjjSlYl J^t ijjJI JjIuij 4ilS ^2 ,^. ^jjj ^j*j f UjIuiVI -V 

( ) End sub -) sub -i ^ 4J'-> CP lj^VI -A 

; 4-uVt CjIjUJI t> Sjbfr JS JUSV ^jUVt Jill ; JI>J| 

. ^A Y M^uit <-* jjfr jjA&j jj*x» 41aa 

Dim Y As Decmail -' 

Y As Decmail 
Dim Y = Decmail -£ 

. U *.uu VB.net 4iL £L«Ujj Jji.tn Jsu jfljaj ill Uaai) -T 

Syntax Error -t 
Logical Error 
Runtime Error -£ 

jA y = 12 — 2 + 4/ 2 MJjUlaI] 0jUil -t“ 

12 -i 

7 -* 

9-d 

.^jA fname ^*«Ij jj*1» CP C$ £ -'^ Aaja^I I M JLu ^II -£ 

Dim f_name As integer -i 
Dim f name As string -‘■h 
D im f name As Decmail -£ 

CP Ctte-W J** Dim X As string CP O^V' 41** -® 
string x ‘Uu.l jjaU -i 

X 4cjjj string jjaU -<-i 
string A^jjj I <U Jjf*- 4 jj*^> 

• UaiJl IJA jjjAj jt-aUjj ^2 JJal* c_iLuia. MajIS UaS. Aaj I j| -1 

Syntax Error -i 
Logical Error 
Runtime Error -£ 

■ ^jjaSfl Q±i Ia^ IgjmUj Lu AjjV) J^St ( I ) ; dJljjj Jtj^nSl 

( Do While Loop- function-for next - parameters ) 

. flcjiuil mjp Cp JUSlwY.»<■*.-., ..-■ 

1 C Mjfr glL■■ JjS LL^J jlS |jj .MJljJt laij -T 

JJxj code (-ifr jj l-aAjft » „"i <*ij^ <j a'1 j|jSj]| AaI . jtjSjJl MlaA -Y 

. Cit(j^j 

li^> jjC CjIjaJI JJ*j (jJ*- 4 jIjSj] .MlaA ^Akluu -£ 




^Yl uiuiIaJI ^2 JL»I CjUa^jj LjjjjA 





























oooo 


























rtf) 


& 


V *■ 1 V JaLijJi 

; SjLaJl ^Ui llal ^sic-j a^,^| Sjbadl ^Ut ^ ^a ; JjVt Jt>Jl 

( | AjjjjijJl A^LaaII (jjii j Jxuj SjStiJl l^ ljULuII jJAii -\ 

( | LgJ A irtxn-% all ^a£1| py^ ^ A.Aj5i t i Jjaus ^cjIwu function <Jlj*ll -X 

( ) !ajj jjj*j 2017Egyptian -V 

( ) jy* £>* »jy* -t 

: AaIUII JajJI Ja£I ^011 JI>a11 

. 9jbfr AJaA .1 

. AAjjjjilY! Jailuijll -X 

. ja Procedures*b*V' - r 

CutjiUI (jC ^ItVI y2. jaI ^JaJLuti -i 

. 3^.a<» aJaV! j^i: Ji>-li 

( logical Error - Syntax Erroe - Runtime EError ) u*>*i VB.net 4*1 j <Jji«j j*j jflaj ^jll Ualll 

(14-21-3 ).<y>Y = 16 + 12/4 + 2 3*1151! AUUaII aju y jj*ja13 AaI^aII AajIII -T 

AilflJ jjc til jaI! <> AAftl ^j*a jjS jl jSj! ( next for - for next - Do while Loop ) <1** ^ Wimi -T 

( LjIjjxja — £jjj*aa - A&lj jj*aa J Aaj2 {jlc- SAajxa g^jlull (jjSj IaA 1& » 'A-., „-. select C3Se AIaa mi 

: yijli JI>-1I 

j^laj ) • • (jA jj£t JAxll £)IS bli AaaaS jjjaa jj*aa ^3 AjjjaAj (j^lll jja ^ 3 j (_$! Jjiiuu ^IaII Jjilt - ^ 

" ljuj!j " <ULuij Jjja j|Jaj ' * * £)A Js! d)!^ I Afrj " ^a!a " AJLuij jjja 
1 -*■;-*■ .a ».U“ jjjij Aj^IaII flla^VI lJUajS! Axj j jkll AjIaS Jet ; lajIIsaII 


Dim Y As integer 
X = me.textBoxl.text 
If Y >100 

msgBox(" ) 

Else 

msgBox(" j") 


: yiuii j jSlb i 1 JlLul 4 AlLulY! (j£ LA^j - Y 


Private sub Buttonl_click ( By 

Dim M As integer 

For M = 1 to 8 

msgBox(M) 

next 

End sub 


. J A AajIjSaII A aW't ^2 aiAAt maII jaxaaII ^uil -I 

SaIaJII A^j2j.AaI^aII A^j2j .AajIjSaII Allall AaIAaII A_sa3 -la 

. jA 9 j!j£S j»ij ^ ill Jjill 


Y\ 


^Yl lauiIaJI ^ aU.AA JL») CjU^ajj Ljjjai 








































£MM ukal AUA.I 


; hLlkl\ SjUfl ^Ui Ual ^slc-j Sjbadl ^U) ; JjVI J|>J| 

( ) lj!A flaullj j-ajjVI dAfc JoHj ^2a lAk fl^ALual AaC- La ^uil lo^j ljLuIjlIIIj <j-« A£-ja%a <jC- djbP ^ 

( J Au-aLk A»a^£- jj uij 2 k j iijj (jj cLujjj]j Aj^ujj JajjJj ^ - Y 

( ) true A^jU ^laij-uJl jxulL! mT 

( ) t ja ComboBox SlAl dallill uaia jj -t 

( ) cluU jj jJlLa] A-aj^ (jjjxj jj £-uaj (j/au/aViUj A^Aa -0 

( ) jiSi ji AaC- j ji AaA£j J-a^j AujjjjSJI JjLuij JLuijI lg-a AuaAj AojjjjSWI Aj&^LaJI 

( ) jjjj^aSJI Sj£li 4 Byte <J*A* Byte " v 

( ) ^jIUaII Aa,j] £>* F5 ^LiLa iaLual jlaU ijJj JJLuu -A 

( ) RAM SjSIaII J LaS ja ^2a daULaJj JLkAk AaC- -A 

( ) A-uiiL lAAu dajflj^jj JljJ £p> Lj^'VW IgJI VB AsJ ^Ic- Ikjj * 

; ^jL La] i-luiUa^ ^ AaajjIIa]! Aa KH ^ja ; Jtj^l 

( c i\u/i\W - - Mod - Select case - IF - 3 - Logic Error - Rem - For next - 15 - Syntax Error - *) 

. ji . ^jluu Ljljiltj lj!jj^LaJI CP ^ 

. A^jj jjxIa A-ajS Aaala CjJ^l LaAIp ...A1a^ ^A^luta -Y 

.jA X = 16 - 12 / 4 + 2 AbU^ x j^l -V 

ljIj-a]| Qa AAl! jjS j!j£j ua &jj LaAaC- .A1 a^ ^AkluaJ - i 

J j£l\ Igul) £ Cfi*^ (AallaA^l * AjU£ ^ . j^SH JC-AjfAil ^AkluaJ -0 

^laUjaII JJLLu Aajjj jblkl lj^j . ^jiii UaaJl c-alaLL -“l 

. Next jlJ|A l 1) jila ^uil AjUS -V 

A^lj jLji ^ .. ^jiall A1 a^ AjUS ^4J -A 

AAuuill Jjju .AjjA^j 

; jL La] uja£ 1 (j ; Jtj^l 

. AaA^ jIxuj f Luta^ ^AkluaJ Sjj%%a A-aIS - ^ 

. A-tajjjSJVI jLuaj^l JaaLuuj jj^ <j^a-ui <j-a AaxIa ^jIjAC- ^Ijiua ^ SjLp -Y 
. UaSK Lail^J uijj *-a jjP (lajj^il (j-<a JAlI JjS jjjSo] ^A^luu A1 a^ -f 
. AaP f jj^VI ^jLk (j-A ^ JljVu^ ^Akluala -t 

. l^J A^^^aII ^ailj f j-La Aaj^j Jjaufi ^^ALuaj -© 

Do while Loop Ajjjilt Jiagyi pj^» jUjV j _ g juA jjsi) fi a ^ A> jjfc 

Dim N , I, Sum As integer 
N = textBoxl.text 
For I = 1 to N step 2 
Sum = sum + I 
Next 

LabeO.text = sum 


Y t 


U^i\ LjiuiliJI ^9 JL»I CjU^»jj 
































ft tMii 


&• 


Uaik JjLuuj Vj 


* * ' ¥ 

: AjjVI J^aJl J^si: JjVt Jlj^l 

End if ^bb£ ^ iajJb jku .4 jU£ ^ 

X = .^ X = 4 + 2*3 A 2 : irfSVl X W -* 

Form dili ^ .4 -aISJI -T 

Uuai4 4-4 jIjla jjP ^o2 JI.iVujiV ... ^.Ixlub -i 

.if then else AjIaaII bljUiij -o 

■ 4alUl CjtjLxI] j£jj ; ^1^1 JVjfru^t 

4, aaL J jju V fljxj ^ cJ^ c '^ ^.IxIujj - \ 

£)jx) ji AjbLuaAll Ajj jjUSjyi jaiLujjij ^AxIujj Iaxaa d jIuj -Y 

4-aiS l^J j Vj ^yajd/aViM AIax <ja (JAjI! uajlaJl ^2 -Y 

JajJj qa jaSij 4xjj jJLLa .1 a4u ^ All ^2 ^ixluu 4 -Lax -i 

jjP jcjUj ( jl£> j g-^Ujoll 4oiIj Aolc- l-jjjjj fUax^l - 0 

; AjjV) JljSSH j£ ^ jj»-a La ( i ; dJliJt JI 

Const pi as single = 22/7 (' 

Dim phone as string (^ 

: ,^Vl ^Ul (<-j 

. (> Textbox2 ®1 jV) ^Ijal 

name j^LaU textBoxl SbVb ^Ilui i jjl\ Aj^alil A^ulil ^yau^Vi - Y 
^ jiufl <ja AjJjAJI (j^ajaul y JlJaJl ^j2 jajuI 4-4 J Vi for AIax -Y 


Luti 

Vji 

Dim X , sum as integer 

For x = 5 to 1 step -2 

Sum = sum + x 

Next 

Labell.text = sum 

. ^ X lAiiL pjli\ -\ 

»bi Jib o^J*^ cr*^'j sum jj*^' 4ajS -t 

.Labell 

Ab% »t.<4*. ..K ' . X ^4 j|j*J| AcUial ^jVI JjSJI J«£l 

Do while 

Dim N as integer 

N =. 

Do while. 

msgBox (N ) 
loop 


tr 


C-LujIaJ) ^2 ^ilxuX4 JUI ljUxajj ljjjx 






































cMM t 


0- 


f a: 


( ) 
( ) 
( 

( 


; SjLxSl ^Uj llal ^Cslc-j Sjbadl ^U1 fiua 4^te frJa ; JjVt Jt>Jl 

CjUUJ) (ja 4,4-Ui^ g't jjI £a J-dbuIb Vb.VIOt 4*^ jj-ajj mS 

SjjjS iajj*ij jjiia cr ic. i^ajxA Select Case -y 

) End if ^a IF 41a*. ^Laj -r 

) Procedure *'*■ ^" ,i "‘ < s.n«*nit Jita £y> J&\ ^ sjijis ^a u&jj o^la aj£ LLaJ i-*4je -t 

( ) j&-* fUSi jj*jj ^aj <**-t ^ jjjjaaUI SjStj ^ ^jUL* VB.net 4*J <^a <iuijaJt .« 

; Lu> $jLc- j£ JLa£V 4-yy\<rtti 4 jIaV 1 jl^t (i ; Jtj^l 

( i« - n _ r ) .> Y = 16-12/4 + 2 Y gSuii IT 

.^A R 4^uil 0AA n<3 JJC ^J jj*2a AIaa -Y 

( Dim R = Decmail - R As Decmail - Dim R As Decimal ) 

.yAuu VB.net 4*L 4 jH£ fijji jfJ% Ual -V 

( Logical Error - Syntax Error - rum time Error) 

VB.net 4*i ^iauu Jaj^ j$ai (<_j 

aj^»lt (j^> lg uhUj La (i Jj^aJl jja! ; ; <-—JliU JtJ^uJt 


(J ) 

Functi on 

Vbcrlf 
Do while loop 

variables oijdiUi 


Const 


_ jjzLi 

^c-aLjjjJ) Cil ajWI i^jSVt jma f -Lul LgJ ^ (jrtjii/rVi (jLaj 

VB.net ^ ^a <igtjii3t j£slcYt ^a ^aii. 

aja*. jjaui f .Lull yS ^alluia SJj*a_a <LaK 
Ajfr j (jJ»-A ^oul l“)Vi IgJLuaJ ^aa ^aJI ill AjWllIj j^ljll A£> JAXa .a 

4 Ajtj Jjsu ULiu 

LAauia 4"nig i lJjjxa jjfr £>a aa*J (jasLA a j£ jt jSjI luu - _A 

; ^SUUI JjUL 1 nt"u ii a 4-uVt 4iiuiS?l £f- ( I ) ; ^ulj^l JtJ^uJl 

For 11 to B step C 

Me.textBoxI .text=me.textBox1 .text& I & vbcrlf 
Next 

. jjUt <> o*jd\ -r 

A ajSH 4jj!j£jJ1 A at-vtt .£ 
. JtJaJl Sjbj 4 ^j3 .0 

4j j*m\ ciLajJxa jJiL filj Facebook jal^a dtji^Vb j ^la ( u 

. l^ja JM. (j^> CjLajLl a II iilli (j-« Salal>-V'; t 4 j^jJI J | jj^a Luaj*lutA 

v loa f I(jja ijxjj j! ^Laj ^ jil jlal^A dliA JAj ? J*1j j! u&j jlS IjLa iAuI j ^ 


tt 


^Vl ‘ U Uil ^3 ^aU.XA JL»1 CjU^ajj i_jjJ ii 








































f i \ f 


0 - 


; SjUlt ^Ui Uai ^skj SjUi) ^U) A-a^sk frba ; JjV) Jt>Jt 

| | k jjlbt CibLuIl ,jAua ulUalt ^ui) A_ajij 1 a'.xl _> 

( ) F_name string <**-W Cfi- dim F_name As string - Y 

() ^ £bu <> jiisi ^ aji ajUs jijii un j i Sa^tj Sju Procedures tj^Vt & o!kvt -f 

( ) 


( ) 
( ) 


j jluu V ^j*jj ^iajLJt jjjxjII ^ ^ailuu < > JulxLt -1 

then <jL j aI' a jilt AiL Lck true 0^ Aku^Ji if then ^ -° 

Branching ‘Lk jjiiaj cit>*Jt <> aac aji jtjS -i 

■ La A-bbll Ciljtuadt Juit | u | 

( Function - Sub - ^Luji Parameter - ^jj^Vi ^A*uli) 

. aajSj jj*j v <jaitj.^jiit VB.net ^ 0* 

.^auu AujjjjiliUt JLusjVI JaiLuuJ jJfr jiY (j^ai-ui <ju auxlbt ^j|jAadt bjluill - Y 

sjlCJluit uk ftj^Yt aji Jib Lg-ataLluit »**j. u ^jJl ^uAll qC Sjbc. . -V 

; JjcuijaII Jjaa Lao A yi^^l t AjIaVI jail ( i ) I fjjblt Jt>alt 
. u* Salary uiiijull jjila (jc <j!kYJ Asuau^It AiouaSl - ^ 

( Dim salary As integer - dim salary As Byte - Dim salary As Decimal ) 
j Parameters ^jLu<j iib jjiuj ciUkiitj jutjSn <> acj^s-* <je SjL& function aJ'aI) -y 

(c^j^t - value aj*j y _ value aj*j ) . 

. t-liau yjjjailYt AjjJI jt ^tLakYI J^ljalt Jil^a jjfc ^jjailYt ^AsuJt £><® tAm&j ^uau -V 

| bui (jjjjVI — A^li CiULu jJu ^ac — (jaaall JjLuijI) ‘ °~ w J 

.^iaijblt jjjxill ^jU jl Lbtia LOOP 1 £ I.' 1 C 'J DO While jlAiaa. AjIAj jjj Aj&JI lalu - i 

(false - true - text) 

( v _ i _ £ A ) . >Y = 55 -45/5 + 2 ^Abuail Y ^L^lt g2U» -« 

. Aj£ll » jii "* Pj ji ia ^uabjll Cubit £jC (JilcVt AjC 

( const pi As single = 3.14 - Dim pi As single = 3.14 - Dim pi As single = 3.14 ) 

.i jijwvi Dimension X As Byte AjSli Aubs ic j&\ tiLilt ajuj .v 

(Jjxbsit Aic Runtime Error - Logical Error - Uai Syntax Error) 

bUAj i^tj Jjiia yift Caj*-a ^^>fijlt LaHc .AlaA ^aUiluu Branching -A 

(If then - Select Case - if then Else ) 

: Auk. Aj!a!)U (JuJUIl (JuS>uII QA iaSa Jljua juil 

Dim Y As integer 


X = me.textBoxl.text 
If Y >100 

msgBox(" ^Li") 
Else 

msgBox(" 


Jjllbt jjilb 


ua AliuiVI JjC. 


JjVt Jt>JI 


. jA Jj£lt jjfljj ^jU ijki X — 76 AujS Cul£ bt .) 

. jA Jj£lt Liu ^jU ^jx2 x 49 AujS Cub tat -Y 

a&lj jLwi ^ylc- Jub a jilt lab |p Alaau (j^lilt a jilt AjUi act -f 


Y* 


^Yl LjiuibJI ^9 JLat CiUa.ajj i_jjja. 







































; ta 3&\ Jt>Jt 

JJ*lt Jh, \ ,jji AjJjii! JlJfrVI JjIsj " AjJjS JlJC-i " jj J& UlaLua <jfrj <_o.,>a JJC JU.sc. ^ jijUI 

4jU.sl jjxll ^1 Y £ja 4_ajJ]l jtjxll £jLj " <U&jJ Jl-Sci " ^Ic ljJaLua |j)j <. 4JUj1 

.LiStBOX ^ 


Dim N,l As integer 
N = textBoxI .text 
NstBox1.items.clear() 

I = 1 

Do while I < = N 
NstBox1.items.Add( I) 
1 = 1 + 2 
Loop 




. U A jj 3I yS jl jSjII Ala - S 

.J**VI JjS jlaaJl yfl | = | + 2 c> -Y 

.ja Loop <> - r 






































MMI iAatl 

fill 

; SjLaJl ^Ui llal ^Cslc-j SjUj) ^Ut ^a ^a ; JjVt Jt>Jl 

ja for M = 3 to 1 step -1 M ^ -> 

textBoxI .text= " Egypt" (j^Lua^j Ala^ dJA - Y 

la££ Ajp (jilc-Vt •lie- ^jj -t" 

dJ! <iuJJ-dJ| AjjI^kJ) AojJJj£iV) JjLuujJt (J-4 JifllAill L_L^J -£ 

End if -e If then Else -« 

; 4JU3) 4jSVl ,«fl UaaJl U^a>» jS3i ( i ) ; ^jgl JI>uJl 


1- Dim 3 

2- For X: 


student As String 
: 5 to 10 step -1 


JUS I JijSII jjijj 


i* ( v ) 


Dim X As integer = 5 
Do while X < 5 
X = x + 1 
Loop 


. <s s 


; U ; dJfll J|>J| 

. £jj <> Ikk 5l*aJi »ja ^ Dim X As Byte = 256 -> 

. jA ( 5 + 1 ) * 3 + 2 AjJ < ua AjImI! jjcjU -T 

False j' true jAj .£>Ji <> ^ -v 

4 aji; Jjju . L>* pl.-t 

.LalUa 4jj!jSj]| AilaJI jajj V DO While loop ^ ~° 

: QitjaVi £>4 4 yrw^\ i jail; Jt>Ji 

(jula jLJu CjLa^lxa jA | p-LuiLuiVI — — J..^ .'.''"^.l J - ^ 

( Char - Short - string ) £jj ^ j^3lL» jUkj 4 -Y 

( Me - RAM - REM ) <> VB.net 4£J <aIs .r 

IjjSJVI ( jjfl ‘““itt _ ^JjuH — J jjjSJVI ja■ l ■ ■■ijit - 1 <■*•'■■ -LajLLa yj|jJC liljiuj -£ 




{ JH\ c-LujIaJ) ^2 jLal ljjj^ 

































( 


0 Jli&f! <Jua» AUiat 

V gjuk*g&'J*' 

; jifaUJl SjLxSl ^Uj llal ^slc- j 3^ .»t| Sjbadl ^Ut fiua A^te ^a ; JjVI J|>J| 
( ) 6 jjj£ JajjJu i^JUAj A^ij jjiia A_aj3 ^ic- .lajjus jj£j LaAjfr ^Aa.l><u S©l©Ct C©S6 4i«+ -Y 

( ) Cil ja 1\ (j* JAi-a -!.!£ Ujl jSj j»JJ CiLaakaJlj j-aljVI <j-a Afrj.a^.a Sjbt PrOCSdUT© ?■'J+VI -Y 

( ) 4_ujjj£JVI JL-ajVt iajLuu.j jjfr jiV <j^i»ui (j- 4 jJfr djiui <j& SjUfr jjj£JVI ^JauJt -V 

ijl.x-.tl ^jIum ®A^tj <> j-a LfrlLUiS ,jLaj g^LjjJl ^3 CjljJtl a llj CajIjjII qC q^C’VI j^i AjU£ j(j£j ^JsJ -1 

) A ajJL Jj*j Vj JaiLuuj IgJ (jjjlj l^jiJaj jjsu ^uil Cjaj (j-» AS-jay a CP sjlafr AJlilt -0 

; Jt>^t 

; Ia 4 t ^3 ‘ aV»A. i-.-y-i Ua^ frua ; Vjt 

Decimal - Long - integer -y 

&- = -< -r 
ListBox - Button - function -y* 

; AjjVI Cjtjbxit : Ujlj 

Dim f_name As . p f_name <»—Vt ^ £jj .y 

.Uai. ja Din X as long ajSM J* UaAii -y 

; (jdtjiaSn Aaj\.^\I AjIaVI jaAI ; diMjt Jt j^t 
.jA R SjiWl jiailt t a<«oi CP ^Vu«a\t JjiSI -Y 

( Dim R as single - Dim R as string - Dim R as byte ) 

Jajaiu Jjjlaj ( JP AJulgJ i_ijjjua jjC CjIjaS! <j^ JAlS qjxa Jj£ jIjSU. » uj -Y 

(for next - Do while loop - if then else ) 

( f6 - f2 - f7 ) £jjUa]| Aaj] <>.^Uia fjs- JijSJl aASU ^ .r 

.dujij^U ^>«V) J&lj3 (j -£ 

( JJJaSI ^-al^ A£jLuu» — A3 ijjj^ jjxlt j3l- dujiuV) ( _ y lC’ A^Ia AjULij jmu J 

' : ^ -o 

If x>= 100 then 
MsgBox (" ^U") 

Else 

MsgBox (" v«U.") 

End if 

( (Jaui Lu> V — uuilj — ) .jA Jj£Jl liijj Jxj j*3 X— 65 I jl 

. (_jA Y = 12 — 2 + 4/ 2 aJjIxaJI Ijiii j*j Y ^+“*4^' A^jSi) _y 

; ^UlSl * ‘j*"' - •>* AjjVI AiimVt (jfr <— 

Private sub Button1_click (sender As object, e As EventArgs) Handles 
Buttonl.click 
Dim M As integer 
For M = 10 to 2 step -3 
MsgBox (M) 

Next 
End sub 

M CP 0^^. -) 

. <y* -Y 

.obi fjlc- click ja«u<alt LaJAift AuAjjj -T 

.jA Jj£]| jjijj 3u ^14^1 ^jUS! -£ 


YA 


^Vl ‘fjA ati.^A JL») i_jjjii 











































cfAiM 


c 


&• 


««f 

■ SjUxSi ^ui Uai L&ej SjUii ^ut ^ ^ : jjvt jt>ji 

( | lA j£Jj ^Jalu4j <iL o^aliJ! Ai^ui jjjaJI A-al£ ^uaj <jl ^UVuaiVI £a LAaj 

( ) Logical Error jjjju aJjIaa ljLu^ ^ UakJi -t 

^jiii ^t.iVurtt cj! 4jWi 1 a4jj jx ui fUjij p-UjI igj ^ q£aj Variables ^jjxIaJi -i* 

( ) ' ‘ ' ’ * 

( ) Parameter <> >*' f'Jaiwi c £*j fijci cp c^V' 15 -* 

( ) f name String pX jp±* CP c^^ Dim fname As string iUjJi .0 

; Aj 2V) titjUll J^i ; ^jflt Jt>Jt 

. ^jj jj Ci£j jl jtjjlj Cull!I 4 _«j 2 Cul£ til - \ 

. 4 JUJ 1 (form ) jr j>*ilislau cp jj*i . -x 1 

cull pi ^uiV! IJA flcJluit c!&j t ijjjua ^uil Cid H rtjlt'illj jjsIjVI (j- 4 4t* (jc Sjluc. -f 

CjI «jW"ittj j^>!jSf! ale 

.oc SjUfr ^jjiiiyt ^Jxiii -t 

1 i' A ? j"' pi Vj Jijll JilJ l$ull £_j^^!l CjUa^Li 4uU£ ^5. juSH ^lajxa!! - »j .0 

; ^ x. Y &j£±A g^U > U ( i ) : attfli Jl>Jl 

1- X = 2*5-4 A 2 + 3 

2- Y = 4 A 2 + (9-5)/2 


Private sub Buttonl click 
Dim X As single 
X = me.textBoxI .text 
If x >= 50 then 
msgBox ( " ^ ") 

Else 

msgBox(" ^'j") 

End if 


JL ' AujllSl AlluuVt CP *-^t ( L_i ) 



.<^"<11 jbl fjlc. .CuCaJI ^aj 111 aj£]l Jjijj ^ - X 

jA aj£!l Jjil! ^cjU (jli X = 45 Cjjl£ 111 -X 
Jala s '^' j j b.,. Jft ^Jajl Block IP (_>alall JjS!l lulj£ ^C-l -V 


■ j<U]U]| <LlimVI CP 4^1 ( i ) ; ^uljll Jljfrmll 

Dim m As integer 
Me.textBoxI .text= " " 

For m = 1 to 3 

Me.textBoxI .text=me.textBox1 .text & m & vbcrlf 
Next m 

.ja me.textBoxI .text = " " ^ Cp 

.yll m < l- 4 ^ J*^l l<aCjfr 4ujljSl!l 4Hall lull t_a £jjj -X 

.ja TextBoxI o*^' <jjAi«a ^ **Xjp (» 1 j u .r 

for ^ ) 

\ \ ♦ UJjUj Ajuj-4 jj 3) c-u^l 



{ JH\ c-lujIaJ) ^2 ^ila^A JUI 









































! cMia t uUal AbbU 
f * \ ¥ h&JM 


: : Vjl : JjVt Jt>^t 

? ^AxlaJ) 1 q a <•*."■ ••> ^\\ AjjjjjliVI iajLuijJl qa (jjjjt j£aI 

i Function 4 JIaIi tije (i) -y 

? Y ® o A ajaII Aj ^<^2V1 AaJIj jiua A aj&I) Aj ^jjVI AaJI (jjSj (jAtl £)Luit La |uj 

■ AuiUUt Ljtjbfclt ^ Jaa. AJj^j La ; Ujtj 

m # # ^JiaSs* £jjj ^Lajj Aj 2ji iLuljJt A_aj2 Cul£ I j| - ) 

12 jA 16-12/4 + 2 AjjLuiaJt Ajlttl! LiS £iU -Y 
Stop -e Select Case -? 

.False t jjjasji pu u^"|f Then Else 4i*+ ^ Then ^ cs^' aaL -* 

: o*\ j&t Da <> jA^ji Ajuyi jui (i) u ^\ ji>ji 

. Ua*. cjSaj Dimension X As Byte Aic j -> 

( Syntax Error - Logical Error - Runtime Error) 

.y <J& N . -i Mod jj*j ( N mod 2 ) ^ -y 

{ ui Iaa lfUi$ — 4_4*ua2 ^SL — 4-auaS ^uU J 

. uiUa jIjSjII J-+ ilijs ^ Do While I < N ajSJi J -r 

( N csjiuu | . N <> ja*' I - N (> Jsl I) 

( aJjauj _ p£*A Sbi - Aj^u ) & h^P Clear () *j+J' ListBoxI .ltems.Clear() JjSit J> -* 

o ♦ ^jUmj ji cp ja$i M M ^Ait jj^t Ja£i |f „ Then j>iAiimb (y) 

^ f*. LJa 


End If 


Msg Box AJlu.j 


^LUt Ajilb UjatluLa AjjVI AlimSfl CP ; dijtajt JIjajiSI 


Dim n , product As Integer 
Dim str As String 

Me.TextBoxI .Text = "" 

For n = 1 to 12 
Str = 3 & "X" & n & "=" 

Product = 3*n 

Me.TextBoxI .Text = Me.TextBoxI .Text & str & product & vbcrlf 
Next n 
End sub 


.jA Jjiil Cy* - Y 

. jA AJfr <^aJI ^-Y 

Jt&jVi jj» vbcrlf f j+ <> o^j^' - r 

. U& A ,.^<1 j) ijSjJ) Alaii -t 

^A lA j!jSj jIjaJI Alj£ll 


ja Me.TextBoxI .Text = 


Aj£tl jitl -® 


^Vl 1 u Uil ^3 ^jHoaOa JL»I CiL^ajj Ljjja. 












































JLaM gihA,J 


f*W 4#ia8S 


; UaUil i jUdl A Ui Ual ^Utej ■-<! i jUil pU fL^a 3-Jte ; JjVI JI>JI 

( ) jiixj 5City4 

( ) o^ui me.textBoxI .text = " " Jjkii <> <jLjUi -* 

( ) End if ^ IF l£*j 

( ) JaiH]I L& *LujD A jUc> Jj-ujoj ^ jJaJj 4jUc> £ti AajLuo^Jl CjUIaxJI ljL^IjV ILL - £ 

( ) Argument jJLj ^ L<uLi ( 0.05 ) *' j*\ -o 

■ l-luj 11 a]) (jlLJt ^ AjjVI CjI^KK *Lal£ ^Lua ; ^jl^t Jtj^uJt 

( Do While - Function - Me - Select Case - Assignment) 

l^J 4 ^ ^ a\\ ^jil( p ,jJa ^ 4^jL Jjju 2 ^gr Jluuj. -1 

| | ln4^! Ui .1 6 jUt . - Y 

Loop (JJ 3 L 4 LjJu fLL CjIjaJI ^ JJxJ (JJ 3 L 4 Jj£ jljUl 4 Ia^. -Y 

j jila I-Lajjua ^jj£j UilP ^iLLuu. -£ 

4 JUJI ( form ) £ 4 ijaSII siau 0 ^ . 

; AjjV) CjljUxit ^ Sjbg> j£ A-iIg> Jjj c-u£) ; diMlt JVj^uJt 

lg.»\AA jj Vj J^U l^) CjUo^^La AjU£ ^2 ^iLLuuj j^i -) 

4 ^ 2 Lu 4 jju 4JliJ| -Y 

jL-uuj JL^jVI ^ULi J-4J 4iULV ^.iVurtj ^2 lujLj -f 

O^Vi ftjjj 4_ao2 4j CujIj j^JL fUa^VI £_-£ 

lUit Jj£Jb UjjlLul^ 4 VuaiH c-A^j ; frj)jit Jtj^t 


Dim M As integer 
For M = 1 to 3 
Msgbox ( M ) 
next 


... jA M Ch$ 

... jA n ^i4iiyii ^ jJlLaJi & -t 

.. J^ 4_4iLLuuxil jlj^l 41 a^ -r 

.jA djljli ^ JjiJI -£ 

^jLuoj 4jj|j£13| 4^W\1 ^ 4^u£ -0 



c-lujIaJ) ^2 ^ilx^a JLa! ljjj^ 







































miji yuan # 

f*W 

; SjUfl ^Ui llal ^slc-j SjUi) ^Ul ^a ; JjV) Jt>Jl 

( J AjSj^JI CjULbl £}AjJa Ifri-ii^J ^jIaj t_JUa]j Sjj-ua 

( ) ja£) jl (j^ijail ±£- j jj J-4 ^j Aoj jjSSJj JjLujj JLuijI l^j A*Ai\ AojjjjSJVI 4J&^La]| -t 

dife Ju4jj ^jj 1 JA fl&Jluil J <jjjl 4 ^uit Cl^j lj! ajlinllj j-aljVI ^j A (jC- SjUc- PrOCGdllTG ftj+V) -V' 

( ) CjbukUlj j^ljVl 

) ^ X =2 + 3*4 AJjIjla]) 1a4jj Jju X JJ3U-&U 4j tl g 111 4.4^11 -i 

■ „L bu> Sjbfr ja LSfl fljflt jSjj ( t ) 

4ju jjjSJVI jaiLm,jJl £l jjI - \ 

fikkSn^t -t 

lj! jjilallj CjjIjIUI 4j4-ub JajjJj -IP 
■ jj£JL 1 na^ua* 4-JUJl AllujVt Cfi c-j^j ( c-j ) 



Dim M As singlG 
M = mG.tGxtBoxI .text 
If M >= 50 thGn 
msgBox ( " ^ ") 
Else 

msgBox( " 4 ^'j") 
End if 


.ja jjSil ^uU ^jia m = 80 ^ ciijis i3i -i 

jA Jj£Jl ioiaj jub <jl2 M = 45 4-aj 2 ul£ |J] 

Jaja2 JL2 lIj ^)Jajuj ^Ac. ^Jajl BIOCK IF ^j£JI 4 _Aj£ ,2c.! 


■ Cj) jbxit J^£j ( t ) ; Jtj^uJt 

JajJu ^ j^lJ J jbu4 *Uu2 t X ajJLa ^j&aJI Ladle- .41 a^ ^adiLLuy - \ 

CjIjjaIaJ) £fi> .^.VVu*M -t 

flii IajIj LAxuia ufl jjjla jjC- CjIj-J) (3-® L)^*- 4 4jIjSAl .4i^ ^i^Luuj -V - 

^jjjua is jJu 

; paljliVl <>> AjIaVI jjII ( <-j ) 

( vbcrlf - Me - Rem) au* jku, ^uijj ^ VB.net 5^ -> 

( cj!>4 v . ai>* n - ai>. ® ) for I = 2 to 12 step 2 <yVt jjSII ^ jijSiJt ai>» jjc _r 

{ duljail — J|ji]| - LjIjJlLaII J l^J 4d/a*rfT\4ti ^jSII f J-ua 4 -AjSj JIJ3U Ufl^rJlujj -r 

: ^Vi iiaiu^ ^Jj Uc- ; ^jtj^i Ji>uJt 



Function sum ( Byval H as integer, Byval L As integer) As integer 
Dim S As integer 
S = H + L 
Return S 
End function 


AJl-lSl ^xujI - \ 

jjsii ^ ^iVimot t parameter -t 

Ailill (J-4 Ajl^IjJI <4jS 3| -f 
Ailiil ^j-4 4 ji^I j]| 4.4^lb o^liJl ^jbJl ^jj -i 


^Vl c-lujIaJI ^2 ^ila^4 JUI ljjj^ 











































iMltt uiLal 

tia§ 

; hk\±S\ SjLaJl ^Ui Ual AbCslc-j a^.^I Sjbadt ^Ut ^ A^slfr ; JjVt J|>Jt 

(jLnl) uu^ AuLJ^j AaLula Ji-uu jjjaxaSJI Sj£)J ^2 AJjjaj ^jj (jUj j£ - ^ 

a ^UjjJI jj-uu fUjj 1 ^-auu2 jjxjj <ji (jLoj jjjjja^II Sj£|J ^2 (2 jj\JLa Const A-aI£ ^Vujh -T 

Boolean £.J^' 6- <l&s If Then ^ L^Ji £iu .r 
cjIjaSi ^ jjm jjfr jjc Do While Loop jijS^i ^jja« liiii -t 
aj^lji jjillS p IjaI flcjluit jjc A^_aijJl ajiU Sub A^l£ AjUS ^jj -® 
ifjft ^^vi jjc. Constants ^ o^aaj tjaj .“i 
Runtime Error J^L-uJi flui ILL aJju* j\ uLa ^ a* 2jjji jjc gjUiJi jjj*j .v 
A la 4 A ajjj jIjxJI ^°' ji ajLjJt AJIa ^2 For Next Alaai Step * ""' -A 

; 3>i^t j^AVI J^i ,^t Jtj^t 

.O^V' cr* 2 Dim X As String= " one " 41** 

( X j>—W cs JJfr j^> - X j>—<W - X j>—W c#^j^ ) 

.>ji! j»iJao«u String Value V^ 3 ' (Jjj LjjII -t 

(%-&-#) 

.(jjLuu X = 2 + 2*3 A 2 AjJio 3 ) aJjIx«]| Liu j*j x jjfci ft li al^li a-uH _r 

(38-20-36 ) 

. jA Ajjj^j Jxj VI gfcaUjj]| uLuLu Liu ^JC ^ 1 ■■‘■j ^Ll Qaai) -1 

( Runtime Error - Logical Error - Syntax Error) 

ljIL^LjJ) aL A_»^jj ^jj Vj ijjJl jLLl JLIj (uUaa»!jLa AjUS ^2.j^VI jJ-ajfLl »<■*.-., ,.j . a 

( Vbcrlf - Rem - Step ) 

.^$iil Cy* Cm ^ 255 y^sVI Iaa^j ^jVI Iaa^ a^j&^ a.u2 aJ ^ill ^jLull 

( Single - Byte - Integer) 

.j* Assignment ^ aljLIu,i ^ j ill >jii .v 

(&-@- = ) 

.Me -A 

( ^bJ! >4lJ! Sj£U _ AJbJI SlJl - ^bJl ^jjAaJ! ) 

. Jft I for next ^ o' 6^ 

^ j&ill A1 a^ — AoSaj-uj AIa^ J 

.^^suJl O 4 ^'- 4 ^' 0 4 V La 45I -1 * 

( jjjJI A-oi£ ^2 O^J^VI A£jLuu — tiL A^aLk ljUUj ^ i j-uaj — ^Jauli JjLuij c jWI J 

■ pdk^L jailit c>£i ; dJg« Jt>Jt 

A a&\ jjaj Ia,u 4 jj j O^*- 4 CjI ajbnllj j-aljVI 0 4 A^ja^a 0^ SjW^ ( . ) "^ 

iilUit j j jJlLj A-ojS {J& \ 1 a 1 xa Oj^ La^jP I^aMVuaiI J-uaL ^a 3| J-4^ cS*^! ( . ) -t 

. S jjaS iaj>i 

AojI jjlilxil JL^jVI iaiLujJ jjC- ^J) (j^a^VAA O 4 ^ajlLa ^jI dl jLa £fi> SjUC' ( . J -V' 

False -kj^' jtjLS o^ '^! l^Jj jzi ) If then ^a ^. iVuai (.) -t 

jiauj ^ij JISajVI IAJaAjj 11&J Jj£ ^ 1^ajU£ pjj Sjjvva A-aI£ ( . J 

; l^uAla jA Laj QlLa J^£) AjjUIt Jlj£Vt f tjS) ; Jtj^t 



ft 


( j ^\ c-lujIaJ) ^2 ^ila^A JIaI CjU^ajj ljjj^ 
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iSMI Juan & 


f ; 5 ¥■ 

■ $jUjt ^Uj Uaa> A-a^g>j A^j^^l $jb*lt ^Ut 'kj&£* frua ; JjVI Jtjfru^t 

. ^bVuat tillsj Lis fUjj igj ^j^aj^Vi ^jLaj Constants jlii 

sjiis LjjJu ^ua j variable a-<u£ j& Ijajjl* £j&sii u.tfp ^Vu*n select case ai** -1 

. i^Ia^jj Vj J^b ^j^jli cjUs^^u AjUS ^5 Dim j-^Sfi g-a joaIi .r 

til.J aI ^lj j| viL&lxA UflljJu) uli^J ^jHVI j^l' J'>! -* 

jjxja ^yit jjj»j 55City -° 

AajL jj*j function ^b ji 3 ^*jL jj*j y sub ^J *ij^j O' H VB.net 4*1 ^ cj)fij^vt 

■ ^^jali Qjj u* J*st: Jt>^t 

vbcrlf - a&jaia - End if - 4U^' - LI - Syntax Error -16) 

( Logic Error — a^*^ j^t j — 4Jj>siyi cjUjxJI — <L£ja — 

. ljULu£ Ig-Liuaj A,j uSaII lj!jJVI jIsua! AajS - ^ 

j* y = 16-(10-2)/4 + 2 aJjUl^ Y j^l g2liil -Y 
^3.ijjSSNI <$*311 JULii 4 >. -r 

. OJ^ J jkjj ^5 |f AIa^ LUS ^^Iaj - i 

jlauj fLuuj . Sjja^aII A aKH -3 

UaSJj I 1 a j-uju jlaUjj JjIaluiA AaLuua ljLuo^ Aajjj lla^ ill 

; AJIaJL ^VijulaII c-jj^a31 Jj- 4 ^Jaj Jttlt gu>UjJt^t -1 ; Oiiliil Jt>Jt 


Dim R , M , Product, S As integer 


R = me. TextBoxI .text 


Product = 1 


M = 12 


listBoxI .items.clear() 


Do While product <=. 


S = product *. 


Listboxl.items.Add (.) 


Product =. + 1 


loop 



jf then p j^t 4 aU 1 | 4 juu * a 1 [j IQjlLuua AjlUll AliuiYI (^ uia 

If conditional Expression ( j^*j) then codel Else Code 2 

. L£jj ^^la jJill J^*^l' llfc j. liijj ^jj ^_^a jJill J^*^l' lit - ^ 

. £ja jSl clul£ |lj Y AajS j nvj ^la^ui jooxj luHSI -Y 

AJLuij ^jj>^Wa 11 t ilb*i 11 jfrlaj Jj£j AaUJI A.a..Luall ^ COdel JajauuI -V 



U^i\ LjiuiliJI ^9 JL»I CjU^»jj 


r»T»T»T»T»3»I» 















































g-VJ <MsMl & 


?«y jtgR 

; 4jjVI 4iiuJ| ; JjSn JI>JI 

: ft# (> AjUV) jHI; Vjt 

. u**u\ VB.net 'taL Jji 5 jUs fUiii j^Jaj ^ill Ua&ii 

( Syntax Error - Logical Error - Run time Error) 

(12-7-9 ) .ja Y = 12-(2 + 4)/2 ^l g3Ull -* 

^jjlLaJl 4 a( j^a . ^llLo l jlc- Jaxdallj jLaVI £*aa j £jj*Lall ^j£aj -V 

( F5-f 2-f 4 ) 

.yjjjjSiVI ^Ju)l JlLuii O' 4 -£ 

( 4jjjjj£JVI dalajdatl — ^jjjSWI JjjjJI — ^^iaaJI ) 

( 15-10-0 ).ja Ibl_ display o'>^' » ,J !^ & t*d)ta-° 

Dim N As integer 
Dim S As integer = 0 
For n = 1 to 5 
S = s + n 
Next 

Lbl_display.text = s 


ifclmj&l QjJJ 


aalia A aKj 4JUJ) daljbxll J^Si ; Lutj 

(for next - pass - parameter - Dim - Function ) 

j*is ^jU ota X = 50 tiuis til if X > = 50 then msgBox ( " pass " ) ^Vi code ^ 

.<> jjSI (JSm procedure *'o 6, a^ -v 

daij^ti 0 ^ jj*j code 4 jjijjJ.4 A<a »<4,-..,.-. m y 

A aAj Jjxj lAJjijj daej ^uil uaj l^xdaj >jj ^iJI dal ajltlllj j^ljVI A£,ja^ » . -£ 

daljjiiatl 0* . >«Sfl ^Vuaj -® 

; <Ukl4.t) ajbxJt ^Lat UaA 4_4^tc. j 4-v^ SjL«j) ^Lal 4-a^lC' ft-ua ; lUlla 

( ) daULajtl qa 4iHla £l^j| £a J^lautlj VB.neXt 4iS J-Mjj - \ 

) Fname String ^ CP Dim Fname as string Si^aJi -t 
( ) true ukjuA\ jjjauli g 2 U oj^j Ute if a1»* <^a Else Jh cs^' ^ -? 

( ) ^taUjJi ^ daij^ Sx. 04*- 4 4 j£ 4 jUs jIjSj ja Procedure fij^tsi ^uvt<ni 0 4 (jijxSi .t 

( ) End function -i tt&j function -> Ajij & <£t&yi -° 


( 


1 


: ^Vl 

( i a ) J>»xll 

( i ) AJ~1I 

JIOUI f LuJj (jS - ^ 

| F 4daA 4jUaS (j&AJ - ^ 

ij-4 (jj* jj£j l^ahVuau) jjSjj j^al jVI (j- 4 ^ J A > A LLi] (jl£ UJ -t 

Select cass - r 

t iilualil 

j>Jiua vbcrlf SJjsaaJI iaKII -f 

f LajJj UuaIA i-iIJJ3LA Jji LjIj-aJ) (J-a JJsl! ^IjS j)j£o] -? 

Do while loop^-A .£ 

(JpLA Jaj-uu f Uj 

Sub -° 

dUA j j Variable uj^ -t 


S jjj£ Ja j j-uu 


End if OjJj ^ -° 



m 


^JVI 1 uIaII (j& ^SU.XA JL») CjLa»jj Ljjjai 


I»I«I»I»I«fT 














































